home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESFORM2.S < prev    next >
Text File  |  1993-03-26  |  2KB  |  85 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*    Maintenance:
  7. ;*     02/10/89 v1.10 - This file is new with this release.  These are the
  8. ;*                      two infamous 'undocumented' functions that have been
  9. ;*                      available in all versions of TOS, but nobody said so.
  10. ;*========================================================================
  11.  
  12.  
  13. ;*************************************************************************
  14. ;*
  15. ;* Form Manager routines 2 of 3.
  16. ;*
  17. ;*************************************************************************
  18.  
  19. ;-------------------------------------------------------------------------
  20. ; form_button
  21. ;-------------------------------------------------------------------------
  22.  
  23.           globl     _form_button
  24. _form_button:
  25. ;          .cargs    #8,ptree.l,obj,clicks,pnxtobj.l
  26.  
  27. ptree            =    8
  28. obj             =    12
  29. clicks            =    14
  30. pnxtobj         =    16
  31.  
  32.  
  33.           link        a6,#-4
  34.  
  35.           move.l    #$38020201,d0       ; AControl  56,2,2,1
  36.  
  37.           moveq.l    #-4,d1
  38.           lea        ptree(a6),a0       ; -> addrin
  39.           lea        obj(a6),a1           ; -> intin
  40.           jsr        aes_call
  41.           moveq.l    #-4,d1
  42.           lea        pnxtobj(a6),a1
  43.           jmp        (a0)
  44.  
  45. ;-------------------------------------------------------------------------
  46. ; form_keybd
  47. ;-------------------------------------------------------------------------
  48.  
  49.           globl     _form_keybd
  50. _form_keybd:
  51. ;          .cargs    #8,ptree.l,obj,nxtobj,thechar,pnxtobj.l,pchar.l
  52.  
  53. ptree             =     8
  54. obj              =     12
  55. nxtobj            =    14
  56. thechar         =    16
  57. pnxtobj          =     18
  58. pchar            =    22
  59.  
  60.  
  61.           link        a6,#-6
  62.  
  63.           move.l    nxtobj(a6),d0       ; The order of nxtobj/thechar are
  64.           swap        d0                    ; reversed on the stack compared to
  65.           move.l    d0,nxtobj(a6)       ; how they are in intin[]. Fix 'em.
  66.  
  67.           move.l    #$37030301,d0       ; AControl  55,3,3,1
  68.  
  69.           moveq.l    #-6,d1
  70.           lea        ptree(a6),a0       ; -> addrin
  71.           lea        obj(a6),a1           ; -> intin
  72.           jsr        aes_call
  73.  
  74.           move.l    nxtobj(a6),d0       ; Since it isn't nice to trash the
  75.           swap        d0                    ; caller's stack parms, swap
  76.           move.l    d0,nxtobj(a6)       ; nxtobj/thechar back how they were.
  77.  
  78.           moveq.l    #-6,d1
  79.           lea        pnxtobj(a6),a1
  80.           jmp        (a0)
  81.  
  82. ;          end of code
  83.  
  84.  
  85.